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SUMMARY 

This is an explanation of the code for the flow control I came up with it to get my Basic 
Stamp 2(BS2) talking to my Basic Stamp 1(BS1). I am showing the main loops only. For the 
code files look at letsmakerobots.com and instructables.com. Files or a zip file. 

In my code I use a lot of Bit flags. Most processors allow access to the Bits of a Byte or 
Word to use like regular variables. Basic Stamp 1 and most Picaxe processors have defined 
variable names for the Bits of first few bytes of memory. Usually it is BitO - Bit7 or BitO - 
B15 or BitO - Bit31 to define a variable. In both of these processors the variable Bits can 
also be in another variable. Like my lights Byte BO the Bits are the variables BitO - 7 that are 
Iit1 - 1 its the individual lights. This makes testing of a light easy. "If Iit1 = 1 then litOn" is 
simple. 

The Basic Stamp 2 and processors like it use defined subscripting to access the Bits, 
Nibbles and Bytes of a variable. My individual lights are the variables "lights. BitO - Bit7". In 
testing a variable Bit is "if Ights.BitO = 1 then litOn". Setting is "litTmp = lights. BitO". Usually 
the subscripts can not be a variable. Look at the program files in the EasyLights article. 
Read your manual. 

I fixed as much as I could. The BS1 doesn't do serial out very well. It is stable and runs like 
any simple button on a system like this. The BS1 doesn't do Bits very well either. 

My flow control is the only way I got these systems to communicate. 

I uploaded full code pictures. 
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• Get them talking. Fixed it. 

• Here the the last working version with the BS1 . Two bytes in OK, but not one good byte 
out. 

• Here are the code pictures. 
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• Last page of BS2 12 

• BS1 12 code. 
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• First working version BS2 11 

• First working version BS1 11 



«jn2: Look tot message from the rrtaster 
IF sJ3et = 01HEN|pl'SetUp 
IF pRx = 1 THEr-J Jpl 'Checi lot message 
SERIN plnlix T2100, mCmd, tmpl 
PAUSE 20 

IF mCmd <> BS1PP THEN jpl 'Check for correct address 
lights = tmpl 
GOSUB aoLigfrR 
jpl r'Clear buttons 

IF pBlnl - 1 THEN jp2 

IF pBm2 - 1 THEN jp2 

bDowh = 

btnl -0 

btni-O 
jp2;'Set up slarwe 

IFslSel = 1 ThiENjp3 

tmpl = tmpl -t- 1 

IF tmpl < 10THENJP3 

5Eet = 1 
pp3; 
SOTO writ 
END 

>SubHqut(ng5 ******************************** 
delights; 'Rom EdsyUghts article 
FOB tmpl - IO 7 

litlmp = tmpl 

GOSJJBcheckLlghts 

IF lltTmp = 1 THEN dolltOn 'A ample test 

pDdta = licit : GOTO doLJCk 

doLllOn: 

pDcta - litOn 

doLIICk: 

pCbck - litOh 

pCLOCfc - ItOlt 

NEXT 
iitlJUK 



'Each Lit Is 1 for on and D for otf 
checlrllghts: An Array (or anything 
6EANCHIItTmp,(CUJtl.ctUt2,ckLlt3 1 ckLlt4,ckLrl5,ckUt6.CUJt7.ckLit8] 

CHIN: litrmp - Iltl ; GOTOdcneCtiecklt 

cult2: litrmp - Ilt2 : GOTOdoneChecklt 

cuit3; litrmp - IBS ; GOTOdoneCnecklt 

cuitd: BTmp = lltj ; GOTOdoneChecklt 

ekUt5: Itlmp = Ilt5 : GOTOdoneChecklt 

clUt4: KTrnp - lit* : GOTOdaneCnecklt 

cuit7: Itrmp = lit? : GOTOdoneChecklt 

ctlitS: litrmp - lite 

aoneChecktt: 
RETURN 



• Last page BS1 11 



Get them Talking. 
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